#!/usr/bin/perl -w
use 5.010;

@fields=split /:/, "abc:def:g:h";
say "@fields"x2;

my $some_input="This is a \t       test.\n";
my @args=split /\s+/,$some_input;
print "@args";

$_=$some_input;
my @fields=split;
print "@fields\n";

my $x=join ":",4,6,8,10,12;
my $y=join "foo","bar";

print $x."\n".$y."\n";

my @values=split /:/, $x;
my $z=join "-", @values;
print $z."\n";